home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Yerk 3.6.8 / Asm source / BuildRegMask < prev    next >
Encoding:
Text File  |  1994-01-16  |  1.9 KB  |  81 lines  |  [TEXT/YERK]
  1. \ BuildRegMask                  ReeseWarner                         5/13
  2. \  for MOVEM
  3. \  03/06/86  GDC  fixed MOVEM
  4. \  01/16/94     rfl    added mrh's regbit and revmask for movem fix. Delete setreg.
  5. 0 -> dlevel
  6.  
  7. operand exPtr
  8.  
  9. \  is first char in string = char?
  10. : Char= { addr len char -- bool }
  11.     addr c@ char =
  12. ;
  13.  
  14. \ \  for / in MOVEM
  15. \ : setReg    { mode reg# flag work \ shift -- work }
  16. \ 
  17. \     flag
  18. \     IF                                      \ if regular mask
  19. \         mode 8 * reg# + 1 swap << work or -> work
  20. \     ELSE
  21. \         mode 0=
  22. \         IF
  23. \             8 -> shift
  24. \         ELSE
  25. \             0 -> shift
  26. \         THEN
  27. \         8 reg# - ++> shift
  28. \         1 shift 1- << work or -> work
  29. \     THEN
  30. \     work val" work is "
  31. \ ;
  32.  
  33. : REGBIT  { mode reg# -- n }
  34.     1
  35.     reg#  mode 1 =    \ anmode=1
  36.     IF    8 +
  37.     THEN
  38.     <<  ;
  39.  
  40. \ Flag indicates whether it is regular or pre-decrement
  41. \  1 = regular
  42. \  0 = predecrement
  43. \  modes   0 data register
  44. \          1 address register
  45. : BuildRegMask  { opPtr flag \ tokentype work -- regMask }
  46.     0 -> work
  47.     BEGIN
  48.         nextToken -> tokentype         \ if next token is , or eol then
  49.         get: token ascii , char=       \ get out
  50.         tokentype eol = or not
  51.     WHILE
  52.         msg" in WHILE "
  53.         get: token ascii / char=
  54.         IF
  55.             msg" IT'S A / "
  56.             mode: opPtr reg: opPtr regBit work or -> work
  57.             opPtr getOp
  58.          ELSE
  59.             msg" ITSA something else "
  60.             exPtr getOp
  61.             mode: opPtr mode: exPtr = not
  62.             IF
  63.                 210 asmError
  64.             ELSE
  65.                 reg: exPtr 1+ reg: opPtr
  66.                 DO
  67.                     mode: opPtr i regBit work  or -> work
  68.                 LOOP
  69.             THEN
  70.         THEN
  71.     REPEAT
  72.     mode: opPtr reg: opPtr regBit  work or -> work
  73.     work
  74. ;
  75.  
  76.  
  77. : REVMASK  { mask  -- mask' }  \ Reverses the mask bits for predecrement mode.
  78.     0 16 0 DO 2* mask 1 and or
  79.             mask 2/ -> mask
  80.         LOOP  ;
  81.